home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib08.dsk / ERROR LISTER.bas < prev    next >
BASIC Source File  |  2023-02-26  |  321b  |  3 lines
  1. 63997  LIST 00000: RESUME 
  2. 63998 PK =  PEEK(121) + PEEK(122) *256 -7:EL =  PEEK(218) + PEEK(219) *256:EL$ =  STR$(EL): IF  LEN(EL$) <5  THEN  FOR AL =  LEN(EL$) TO 4:AD$ = AD$ +"0": NEXT :EL$ = AD$ +EL$
  3. 63999  FOR PL = 0 TO 4: POKE PK +PL, ASC( MID$ (EL$,PL +1,1)): NEXT : TEXT : HOME : POKE 33,33: POKE 216,0: GOTO 63997